1 GOSUB
100 REM READ PSG 6 
101 UNKNOWN OP: 0x3A
102 VARNAME
103 FOR
104 NEXT
105 IF
106 IF
107 IF
110 COLOUR
111 COLOUR
112 COLOUR
119 RETURN
2 DIM
3 RESTORE
4 DATA
45 DREG
46 GOSUB
47 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
48 REM           MAIN LOOP
49 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
5 DATA
50 PEN
50000 MODE
50009 RETURN
51 PEN
53 VARNAME
59 REM LOOP 
6 DATA
60 GOSUB
90 VARNAME
98 IF
99 GOTO